home *** CD-ROM | disk | FTP | other *** search
/ Business Assistant / Business Assistant.iso / acctg / tonyray1 / pc3.prg < prev    next >
Encoding:
Text File  |  1985-10-23  |  1.9 KB  |  122 lines
  1. SELE CURRENT
  2. SET INDE TO CURRNAME,CURRNMBR
  3. CLEA
  4. @01,00 say CHR(7)+'position printer at top of paper and hit any key'
  5. SET cons off
  6. WAIT
  7. SET cons on
  8. @01,00
  9. @05,00 SAY 'printing both a report for the attorney and secretary'
  10. SET cons off
  11. mtitle='ATTORNEYS SHORT LIST'
  12. pos=40-(int(len(mtitle)/2))
  13. line=1
  14. SET devi to print
  15. @line,pos say mtitle
  16. GOTO top
  17. mnumber1=recno()
  18. SKIP 52
  19. mnumber2=recno()
  20. GOTO top
  21. line=4
  22. mstop=.t.
  23. pos=0
  24. DO WHIL line<=55
  25. @line,pos say file_nmbr+' '+substr(clientname,1,14)+' | '+;
  26. substr(reference,1,13)
  27. mnumber=recno()
  28. GOTO mnumber2
  29. IF .not. mstop
  30. GOTO mnumber
  31. SKIP
  32. line=line+1
  33. LOOP
  34. ELSE
  35. @line,pos+40 say file_nmbr+' '+substr(clientname,1,14)+' | '+;
  36. substr(reference,1,13)
  37. SKIP 1
  38. IF eof()
  39. mstop=.f.
  40. GOTO mnumber
  41. SKIP
  42. line=line+1
  43. LOOP
  44. ELSE
  45. mnumber2=recno()
  46. line=line+1
  47. GOTO mnumber
  48. SKIP
  49. ENDI
  50. ENDI
  51. ENDD
  52. @prow(),pcol() say chr(13)
  53. @prow(),pcol() say chr(12)
  54. SET devi to screen
  55. GOTO TOP
  56. PAGE=0
  57. line=99
  58. heading='current cases'
  59. DO WHIL .NOT. EOF()
  60. IF line>56
  61. IF page>=1
  62. EJEC   
  63. ENDI
  64. page=page+1
  65. SET PRIN ON 
  66. ?
  67. ?'PAGE '+STR(PAGE)
  68. ?'                     CURRENT CASES  FOR SECRETARY'
  69. ? DATE()
  70. ?
  71. ?
  72. ?
  73. SET PRIN OFF
  74. STOR 6 to line
  75. ENDI
  76. SET PRIN ON
  77. ? TRIM(CLIENTNAME)+' -'+TRIM(CSTREET)+'- '+TRIM(CCITY_ST)
  78. ? '   '+FILE_NMBR,CPHONE+' '+REFERENCE
  79. ?
  80. SET PRIN OFF
  81. LINE=LINE+3
  82. SKIP
  83. ENDD
  84. EJEC
  85. SET PRIN OFF
  86. GOTO TOP
  87. line=99
  88. page=0
  89. DO WHIL .NOT. EOF()
  90. IF line>56
  91. IF page>=1
  92. EJEC
  93. ENDI
  94. page=page+1
  95. SET PRIN ON
  96. ?
  97. ?' PAGE '+STR(PAGE)
  98. ?'                    CURRENT CASES FOR ATTORNEY           '
  99. ? DATE()
  100. ?
  101. ?
  102. ?
  103. SET PRIN OFF
  104. LINE=6
  105. ENDI
  106. SET PRIN ON
  107. ? TRIM(CLIENTNAME)+'  ( '+FILE_NMBR+')  '+TRIM(CPHONE),;
  108. TRIM(ALTPHONE)+' '+'CAUSE NO.'+' '+ CAUSE_NMBR ì
  109.  
  110. ? '   '+TRIM(REFERENCE)+'  * '+TRIM(OPA)+'*  '+TRIM(OPA_PHONE)
  111. ?
  112. SET PRIN off
  113. line=line+3
  114. SKIP
  115. ENDD
  116. EJEC
  117. SET PRIN off
  118. SET cons on
  119. SET device to screen
  120. STOR '012' to curr
  121. RETU
  122.